home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / pssst.arc / PSPHONE.PRG < prev    next >
Encoding:
Text File  |  1986-07-17  |  2.3 KB  |  94 lines
  1. * PSPHONE.PRG
  2. *
  3. * A DBASE II 16BIT COMMAND FILE to allow selection of phone related
  4. * items from master phone menu.  Returns to master selection menu
  5. * upon request.
  6. *
  7. * Version 1
  8. * By LTC Denny Hugg
  9. * ANGSC/DOS Andrews AFB MD 16 Jul 1985
  10. *
  11. * Version 2
  12. * modified by Maj Jim McMurry
  13. * ANGSC/DOSC Truax Field, WI 15 Jun 1986
  14. *
  15. *
  16. DO WHILE T
  17. ERASE
  18. STORE "p S S S t   P H O N E   S Y S T E M" TO heading
  19. DO PSHEADING
  20. STORE 'INPUT' TO p1
  21. STORE 'EDIT' TO p2
  22. STORE 'SEARCH' TO p3
  23. STORE 'DELETE' TO p4
  24. STORE 'PRINT' TO p5
  25. STORE 'RETURN' TO p6
  26. STORE ' '+p1+'  '+p2+'  '+p3+'  '+p4+'  '+p5+'  '+p6+'   ' TO lin
  27. STORE '                (New Phone Record)' TO y1
  28. STORE '        (An Existing Phone Record)' TO y2
  29. STORE '              (For A Phone Record)' TO y3
  30. STORE '        (An Outdated Phone Record)' TO y4
  31. STORE '             (Master Phone Roster)' TO y5
  32. STORE '              (To pSSSt Main Menu)' TO y6
  33. STORE '000713212936' TO col
  34. STORE 1 TO c
  35. STORE '1' TO z
  36. STORE '0' TO mcho
  37.    STORE t TO screen
  38.    @ 22,0 SAY gline
  39.    DO WHILE screen
  40.       @ 22,79 SAY lin + y&z
  41.       @ 23,VAL($(col,c,2)) GET p&z
  42.       CLEAR GETS
  43.       SET CONSOLE OFF
  44.       STORE '0' TO mcho
  45.       DO WHILE ' '<>mcho .AND. .NOT. mcho$'DCKM46'
  46.          WAIT TO mcho
  47.       ENDDO
  48.       SET CONSOLE ON
  49.       DO CASE
  50.          CASE mcho$('CM6')
  51.             IF c#11
  52.                STORE c+2 TO c
  53.                STORE str(val(z)+1,1) TO z
  54.             ELSE
  55.                STORE 1 TO c
  56.                STORE '1' TO z
  57.             ENDIF
  58.          CASE mcho$('KD4')
  59.             IF c>1
  60.                STORE c-2 TO c
  61.                STORE str(val(z)-1,1) TO z
  62.             ELSE
  63.                STORE 11 TO c
  64.                STORE '6' TO z
  65.             ENDIF
  66.          CASE mcho = ' '
  67.             STORE f TO screen
  68.             LOOP
  69.       ENDCASE
  70.    ENDDO
  71.    DO CASE
  72.       CASE c=1
  73.          RELEASE ALL EXCEPT g*
  74.          DO PSINPUTP
  75.       CASE c=3
  76.          RELEASE ALL EXCEPT g*
  77.          DO PSINPUTP
  78.       CASE c=5
  79.          RELEASE ALL EXCEPT g*
  80.          DO PSSEARCH
  81.       CASE c=7
  82.          RELEASE ALL EXCEPT g*
  83.          DO PSDELETP
  84.       CASE c=9
  85.          RELEASE ALL EXCEPT g*
  86.          DO PSPRINTP
  87.       CASE c=11
  88.          RELEASE ALL EXCEPT g*
  89.          RETURN
  90.    ENDCASE
  91.    STORE f TO screen
  92. ENDDO T
  93. * --- EOF PSPHONE.PRG
  94.